home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19960209-19960425 / 000252_news@columbia.edu _Thu Mar 21 09:19:19 1996.msg < prev    next >
Internet Message Format  |  2020-01-01  |  3KB
  1. Return-Path: news@columbia.edu
  2. Received: from apakabar.cc.columbia.edu (apakabar.cc.columbia.edu [128.59.35.159]) by watsun.cc.columbia.edu (8.7.3/8.7.3) with ESMTP id JAA26374 for <kermit.misc@watsun>; Thu, 21 Mar 1996 09:19:19 -0500 (EST)
  3. Received: (from news@localhost) by apakabar.cc.columbia.edu (8.7.3/8.7.3) id JAA06656 for kermit.misc@watsun; Thu, 21 Mar 1996 09:19:16 -0500 (EST)
  4. Path: news.columbia.edu!watsun.cc.columbia.edu!fdc
  5. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  6. Newsgroups: comp.protocols.kermit.misc
  7. Subject: Re: Cycle thru arguments?
  8. Date: 21 Mar 1996 14:18:56 GMT
  9. Organization: Columbia University
  10. Lines: 90
  11. Message-ID: <4irogg$6fn@apakabar.cc.columbia.edu>
  12. References: <31509f0c.83643245@news.vnet.net>
  13. NNTP-Posting-Host: watsun.cc.columbia.edu
  14.  
  15. In article <31509f0c.83643245@news.vnet.net>,
  16. Milton Baucom <mbaucom@vnet.net> wrote:
  17. : Given that \v(argc) will give me the number of arguements to a macro,
  18. : and I can access them via \%1, \%2, etc., how can I programatically
  19. : select which arguement to look at.
  20. : 
  21. : For instance, I want a for loop using \v(argc) to echo each arg.  I
  22. : can't seem to make that happen.
  23. : 
  24. You didn't say whether you were using C-Kermit or MS-DOS Kermit.  In
  25. C-Kermit, the technique is easy (if not totally obvious):
  26.  
  27.   def xx -
  28.     echo ARGC = \v(argc), -
  29.     asg \%i 0, -
  30.   :loop,-
  31.     asg \%x \\%\%i, -
  32.     echo \\%\%i = \%x, -
  33.     increment \%i, -
  34.     if < \%i \v(argc) goto loop
  35.  
  36. Here we compose the name of the argument variable and assign it to \%x:
  37.  
  38.   asg \%x \\%\%i
  39.  
  40. then we evaluate \%x:
  41.  
  42.   echo ... \%x
  43.  
  44. Since evaluation of a variable is recursive (unless we say otherwise), \%x
  45. evaluates to \%3 or whatever, which is then itself evaluated, revealing
  46. the macro argument value:
  47.  
  48.   xx a b c
  49.   ARGC = 4
  50.   \%0 = xx
  51.   \%1 = a
  52.   \%2 = b
  53.   \%3 = c
  54.  
  55. Your seemingly innocent question, unfortunately, revealed all sorts of
  56. little problems.  First of all, the C-Kermit example above should have
  57. been codable as a FOR-loop:
  58.  
  59.   def xx -
  60.     echo ARGC = \v(argc), -
  61.     for \%i 0 \v(argc) 1 { -
  62.       asg \%x \\%\%i, -
  63.       echo \\%\%i = \%x, -
  64.     }
  65.  
  66. But that doesn't work because the wrong value is used for \v(argc).
  67. It does work, however, if you make a copy first:
  68.  
  69.   def xx -
  70.     asg \%n \v(argc), -
  71.     echo ARGC = \%n, -
  72.     for \%i 0 \%n 1 { -
  73.       asg \%x \\%\%i, -
  74.       echo \\%\%i = \%x, -
  75.     }
  76.  
  77. For MS-DOS Kermit, we go back to the first example, since MS-DOS Kermit
  78. doesn't (yet) have FOR loops.  Unfortunately, it doesn't work, and no
  79. amount of trickery seems to let us "compose" a variable name on the fly.
  80. So the following stupid technique can be used instead (of course it also
  81. works in C-Kermit):
  82.  
  83.   def yy -
  84.     echo ARGC = \v(argc), -
  85.     asg \%i 0, -
  86.   :loop,-
  87.     if = \%i 0 asg \%x \%0, -
  88.     if = \%i 1 asg \%x \%1, -
  89.     if = \%i 2 asg \%x \%2, -
  90.     if = \%i 3 asg \%x \%3, -
  91.     if = \%i 4 asg \%x \%4, -
  92.     if = \%i 5 asg \%x \%5, -
  93.     if = \%i 6 asg \%x \%6, -
  94.     if = \%i 7 asg \%x \%7, -
  95.     if = \%i 8 asg \%x \%8, -
  96.     if = \%i 9 asg \%x \%9, -
  97.     echo \%i. \%x, -
  98.     increment \%i, -
  99.     if < \%i \v(argc) goto loop
  100.  
  101. What we probably should do (besides fixing the bugs noted above) is make
  102. the argument vector available in an array that is local to the macro.
  103.  
  104. - Frank